This dataset is described on pp. 1-2 of the textbook. You may load it from the dataset URL linked above or from the resampledata package.
library(tidyverse)
DATA <- read_csv("https://raw.githubusercontent.com/STAT-JET-ASU/Datasets/master/Chihara/FlightDelays.csv")
glimpse(DATA)
Observations: 4,029
Variables: 10
$ ID <dbl> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 1…
$ Carrier <chr> "UA", "UA", "UA", "UA", "UA", "UA", "UA", "UA", "UA", "U…
$ FlightNo <dbl> 403, 405, 409, 511, 667, 669, 673, 677, 679, 681, 683, 6…
$ Destination <chr> "DEN", "DEN", "DEN", "ORD", "ORD", "ORD", "ORD", "ORD", …
$ DepartTime <chr> "4-8am", "8-Noon", "4-8pm", "8-Noon", "4-8am", "4-8am", …
$ Day <chr> "Fri", "Fri", "Fri", "Fri", "Fri", "Fri", "Fri", "Fri", …
$ Month <chr> "May", "May", "May", "May", "May", "May", "May", "May", …
$ FlightLength <dbl> 281, 277, 279, 158, 143, 150, 158, 160, 160, 163, 163, 1…
$ Delay <dbl> -1, 102, 4, -2, -3, 0, -5, 0, 10, 60, 0, 32, 0, 44, 52, …
$ Delayed30 <chr> "No", "Yes", "No", "No", "No", "No", "No", "No", "No", "…
head(DATA)
# A tibble: 6 x 10
ID Carrier FlightNo Destination DepartTime Day Month FlightLength Delay
<dbl> <chr> <dbl> <chr> <chr> <chr> <chr> <dbl> <dbl>
1 1 UA 403 DEN 4-8am Fri May 281 -1
2 2 UA 405 DEN 8-Noon Fri May 277 102
3 3 UA 409 DEN 4-8pm Fri May 279 4
4 4 UA 511 ORD 8-Noon Fri May 158 -2
5 5 UA 667 ORD 4-8am Fri May 143 -3
6 6 UA 669 ORD 4-8am Fri May 150 0
# … with 1 more variable: Delayed30 <chr>